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1 MODULE STRSFIND_FIRST_SUBSTRING (! Find first substring (in List of 
¢ : substrings) occuring in a given 

Z ! string. 

5 IDENT = '1=002" ! File: STRFINDSB.B32 Edit: RKR1002 


)s 
BEGIN 


' 
PITITITILILILILI LLL LILI TLLILi TLL iTi Ti TiiiiTii ii titiiiiiiiiiiiiiiitt te 
'@ 

'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
a 
® 
® 
® 
® 
® 
by 
TRANSFERRED. : 
® 
® 
© 
a 
he 
*® 
® 
® 
® 
* 
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Ss 4 2 4 1D 


pelo fo lolololeolo loin ola lela lolololololo) 


WP PoPoToTfonoforornony 


MEUM —OODNOU SW —OOONOUL WO 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. oeponat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DOOOCOCooOOoOoOoooooO 
SSosooooeooss 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
8 + SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
003 i ciaideeeeatilasieatiianeneenminnedineeadiaidéietiebaalammadenattaiandianainentnenintdeiehiie 
' 
ait 
00 ++ 
ie: FACILITY: String support Library 
$03 ABSTRACT: This module contains a procedure to find the first substring 
003 (in a provided List of substrings) occuring in a given string. 


ENVIRONMENT: User mode, AST reeentrant 
AUTHOR: R. Reichert, CREATION DATE: 11-AUG-1982 
MODIFIED BY: 


1-09) - Original. RKR sb aga og 
1-002 = Code improvements. RKR 24-NOV-1982. 


<BLF /PAGE> 
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ono 
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SWITCHES: 


SWITCHES ADDRESSING_MODE 
(EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES 


REQUIRE *RTLIN:STRLNK'; ! Linkage to STRSANALYZE_SDESC_R1 
TABLE OF CONTENTS: 


FORWA" ROUTINE 
¢.RSFIND_FIRST SUBSTRING ; 


INCLUDE FILES: 


REQUIRE ‘RILIN:RTLPSECT? : ' Declare PSECTS code 
REQUIRE "RTLIN:STRMACROS'; ' use sities macros to write code 
LIBRARY ‘RTLSTARLE'; ! STARLET Library for macros and symbols 


; MACROS: NONE 


i EQUATED SYMBOLS: NONE 


PSECT DECLARATIONS 


DECLARE_PSECTS (STR); 


OWN STORAGE: NONE 


1 

EXTERNAL REFERENCES 

EXTERNAL LITERAL 

STRS_WRONUMARG ; ! Wrong number of arguments 
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GLOBAL ROUTINE STRSFIND_FIRST_SUBSTRING ( fine es substring (in 


st 9 substr nge) 
! occuring in the given string. 


STRING, ! pototer to string descriptor 

on in whic ore was found 
x ! ng was found 
SUB-STRINGT ! pointer to first substring 


a2 


+ 


+ 
FUNCTIONAL DESCRIPTION: 


This routine finds the first occurrence of any of a number of 
! substrings in a given string. The given string is searched from left to 


0 non-zero 0 0 0 
non-zero 0 1 N 1 
0 0 1 N 1 


CALLING SEQUENCE: 


status.wic.v = STRSFIND_FIRST_SUBSTRING ( STRING. rt.dx, 
INDEX.wl.r, 
SUB_STRING_INDEX.wl.r, 
sue STRINGT.rt.dx 

,SOB_STRING2.rt.dx J 
C,SUB_STRINGN.rt.dx ) 
FORMAL PARAMETERS: 
STRING. rt.dx pointer to string descriptor 
INDEX.wl.r Position within STRING where a match was 


found, else 0. 
SUB_STRING_INDEX.wl.r Ordinal number of SUB omy that 
n 


matched ( 1 for Ist. 2 for 2nd, etc.) 
else 0. 

SUB_STRING1.rt.dx First specified sub_string to be found 
in STRING. 


CSUB_STRING2.rt.dx J Optional. One or more additional 
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sub_strings to take part in the search. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE STATUS: 


1 If a match was found. 
0 If no match was found. 


SIDE EFFECTS: 


May signal STRS_ILLSTRCLA on bad esring class. 
STRS$_WRONUMARG if no substrings supplied. 


PPA AAA AAA A MMIII 


DWONAUE WN § O DOONAN WN $$ O ODNAULS WO OONOUS WHO 
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BEGIN 
MAP STRING: REF BLOCK C , BYTE) ; 


UILTIN 
ACTUALCOUNT 
ACTUALPARAMETER ; 


LOCAL 
FIRST_OCCURING, Ordinal number of substring 
that occurs earliest in 

string (so far). 

Address within string where 

FIRST_OCCURRING substring 

starts (so far) 

Length of given STRING 
Starting addr of given STRING 


LOWEST_INDEX, 


STR_LENGTH 
STRTADDRESS ; 


090069 69 C9 09 09 C9 C9 O98 NINN NINN 


'¢ 


AVLOOS IVE ARA OORT AP VHS OSNOUR IO Ow UR ROO Oe 


PERL KS FAA AAA AAA AAA AAAI IAAI AAW AAAI AANA AAA AAA NW 


ae ce a ce cee ee ce ee ee ce ce ce ce ee ee ee ce eee ce ee ce ee ee ce ee ce ec ee ce ee ec ce cee ee ce ee ee ee ee ee ee ee ee ee ee ed oe eed ed 


AAA AW AI AI IAI IAI IR OOPOPORONONOPONOPONOPONONONONONORUNONU NOUN 4 es 
e 
SSS 
pare ary 
= ‘ 
mann 


RIPIPIPIPIMIPININIDPIPINPIPINININY a nt i a ad oh od 


Be Se Se Be Fe Se Fe Se Ge Ge Se Ge SH Fe Se Se Fe Fee Ge Ge Se Fe Ge Ge Ge FH Be Ge Ge Se Fs Ge SF Ge Ge Ss Se Se FSH SH Se Se SHSe SH Se Se Se Se Se Sete teases 


ey See if any substrings were supplied and signal if not. 
38 aaa () LSS 4 
02 Re BEGIN ! Not enough arguments, no substrings supplied 
05 + i Build a local fixed-length descriptor 7 Nae to name of this 
4 i routine and use it to signal STRS_WRONUMARG. 
08 39 LOCAL 
+4 4 ROUT_NAME_DESC : SSTRSDESCRIPTOR; 
11 § DESC (DSCSW_LENGTH] = 24 ; 
\¢ T_NAME _DESC $33 1 as 3 = DSCSK_DTYPE_T; 
1 a DESC [DSCSB_CLASSJ = DSCSK_CLASS_S; 
14 5 ROUT_NAME _DESC DSCSA_POUNTER? S velrt 
15 ZASCII'STRSFIND_FIRST_SUBSTRING'); 


STRSFIND_FIRST_ 
1-002 


NAUESWN OOD ONO 


50 


PIMIPOPIPIPINIPNININIMPYNUNONOND 
= 


PISSSSSS RATS S TE ss 


IAAP PONOPOPONINN 2 OOO 


a a ee ae ee a el a ee el ee a ee ee ed dd 
Bt at el tt et ek et ek kk le eh eh eh, ee te he he he ee et a UMMM MMUMUMUAUeweUMUMUeaw 


DAD MN & & BEE EEE PUA 


Ca PO DOO WEA RU HOO NOME WM ODO WOU PUNT ODO MO Ure sro LOO UO Deen 


$ep-1984 01:3 AX-11 BLli 
ibese pn 19be fo:abs06 — Eelarte ese 
GNAL_STOP (STRS -WRONUMARG, 2, ACTUALCOUNT (), ROUT_NAME_DESC); 
D; “Not enough eueeake no substrings supplied 


t+ 
j pete length and starting address of given string 


SSTRSGET_LEN_ADDR ( STRING, STR_LENGTH, STR_ADDRESS ) ; 


LOWEST_INDEX = .STR_ADDRESS +.STR_LENGTH ; ! To impossibly high value 


raest OCCURING = 0; ! Set to none 
RT FROM 4 TO Re ruabeguns Q 


COCAL ! Search loop 
! Pointer age A. oe SUB 

SUB LENGTH ! Length of nth substri 

SUB~ADDRESS; i Address of nth substring 
IND 

NTH_PARAMETER = ACTUALPARAMETER (.1) : BLOCK C,BYTE); 
SSTRSGET_LEN_ADDR ( NTH_PARAMETER, SUB_LENGTH, SUB_ADDRESS); 
IF .SUB_LENGTH EQL 0 
THEN 

BEGIN ! Force to look Like found 

wT, we are about to look up a null string. eats one is 

j guecenteed & to be the winner since a null strin 


efined to be found anyehere -- in particular .7 the 


7 first byte position. Force an oate’ at this point. 


~ INDEX = 1 ! Position 1 
5u8 STRING. INDEX = .1 -3; ! This substring 
RETURN (1); i Return success 


! Force to look Like found 


BEGIN ' Use MATCHC 
IF (PTR = CHSFIND_SUB ( .STR_LENGTH, .STR_ADDRESS 
as .SUBTLENGTH, .SUB-ADDRESSS) NEQ 0 


BEGIN ! Found a new contender for first 
tet -PTR LSS ULOWEST. INDEX 


pr ein } Found an_earlier 
FIRST OCCURING = -l- 3; ! Record which substring 


LOWE WEST INDEX = .PTR; i Remember its address 
* Found an earlier 
END; *! Found a new contender a first 
END; i Use MATCHC 
END; ! Search” loop 

as we exit from the loop above, FIRST. OCCURING is the ordinal number 
i me the Substring that appears earliest in STRING. LOWEST_INDEX is 
i address within STRING where FIRST OCCURING starts. 
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31885 1eaeb= 1382 FS: 28:65 | Heat ok teg sa Viste 78g. ve 58 
: 3? 1e8¢ § ' se rinst_occurine Ee. 0 ; 
: 275 14 6 THE ng : 
3 76 14 BEGIN ! No matches found : 
: 27 146 INDEX = 0; ; 
3 £8 146 . SUB STRING_INDEX = 0; ; 
: 27 14 RETURN (0); : 
3 e} 1258 END; ! No matches found : 
; 147 ~SUB_STRING_INDEX = .FIRST_OCCURING ; ; 
; Bg 147% gNDEX < , ;LOWEST INDEX - .STR_ADDRESS + 1; : 
; as 1476 END ; ! Procedure STRSFIND_FIRST_SUBSTRING ‘ 
TITLE STRSF IND_FIRST_SUBSTRING F 
[IDENT \1-002\ : 
.PSECT _STRSCODE,NOWRT, SHR, PIC,2 : 
SF 54 53 52 49 46 SF 44 4E 49 46 24 52 54 53 00000 P.AAA: . ASCII \STRSFIND_FIRST_SUBSTRING\ : ; 
47 4E 45 52 54 3 8 55 33 0000F ’ * : : 
-EXTAIN STRS_WRONUMARG, STRSANALYZE_SDESC_R1 ; 
OFFC 00000 .ENTRY STRSFIND_FIRST_SUBSTRING, Save R2,R3,R4,R5,-; 1293 : 
R6,R7,R8-R9,R1IO,R11 : : 
OV STRSANALYZE.SDESC_R1, R ; F 
58 000000006 00 9 9002 NOVA SRS ZE’SDESC_R1, R11 ; 
04 6C $4 000¢ MPB. (AP), #4 : 1392 ; 
20 1E OO00F BGEQU : : 
6E 0100018 &8F DO 001) OVL § #17694744, ROUT_NAME_DESC : 140 : 
04 AE CD «AF «9E 00018 OV P.AAA, ROUT_NAME_DESC+4 + 140 : 
SE OD 9010 PUSHL + 1407 : 
7E 6C 9A O1F MOVZBL (AP), -(SP) : : 
2 DD 00022 PUSHL : : 
000000006 8F DD 90 4 PUSHL #STRS$_WRONUMARG F : 
000000006 99 4 FB O2A CALLS #4, LIBSSTOP : 3 
0 04 aC p 00 1 1$: MOVL TRING, RO + 1413 : 
02 03 AO 91 00035 CMP (RO), #2 : ; 
09 A 039 BGTRU : : 
58 60 0 MOVZWL (RO), STR_LENGTH ; : 
A 04 Ag ; MOVL 4 (ROS, STR_ADDRESS ; : 
4 BRB 3$ 3 g 
: 1 44 2% JSB STRSANALYZE_SDESC_R1 : : 
58 D 46 MOVL RO, R8 : : 
A 1D 4 MOVL. 1, R10 ; : 
56 A 8 4C 38: ADDL3 STR_LENGTH, STR_ADDRESS, LOWEST_INDEX > 1415 3 
9 A MOVZBL (APY, RO : 1418 : 
4 D mova #3, f : : 
: 6c D0 00088 48: ROVE —CAP)EII,_R2 : 1427 : 
85 03 A BY CMPB 3(he) b2 : 123 ; 
0 1A BcTRU 5$ : : 
57 6 MOVZWL (R2), SUB_LENGTH : : 
1 06 =A p MOVL  4(R25, SUB_ADDRESS : : 
0 6 BRB 6$ : : 
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50 2 p 5$: MOVL  (R2), RO : F 
JSB STRSANALYZE_SDESC_R1 : ; 
57 D MOVL RO, R : ; 
p 6$: TSTL : _LENGTH + 1431 : 
° BNEQ P+ e 
08 BC p MOVL #1, @INDEX + 1440 ; 
C BC FD As MOVAB 3{R4), @SUB_STRING_INDEX : 1444 : 
6A 58 61 3 j H 7$: MATCHC SUB_LENGTH, (SUB_ADDRESS), STR_LENGTH, - : 1249 ; 
(STR_ADDRESS) : ; 
3 13 00087 BEQL «=s«8$ : : 
53 D 0 9 MOVL_  SUB_LENGTH, R : ; 
7 2 C 8$: SUBL2 SUB-LENGTH, R : : 
O¢ 13 0008F BEQL $ : ; 
56 D1 00091 CMPL PTR, LOWEST_INDEX + 1450 ; 
07 18 00094 BGEG °§ : ; 
55 FD AG SE 00096 MOVAB =3(R4), FIRST_OCCURING + 1453 : 
nt 53D OO9A MOVL PTR, LOWEST_INDEX + 1454 : 
B7 54 59 F3 0009D 9$: AOBLEQ I, 4 + 1418 : 
55 D5 OO0A1 TSTL FIRST_OCCURING + 1465 ; 
08 12 000A BNEQ 10$ : ; 
08 BC D4 000A CLRL @INDEX + 1468 : 
0c BC D4 000A8 CLRL § @SUB_STRING_INDEX + 1469 : 
10 11 000AB BRB 1 + 1470 : 
oc BC 55 DO OOOAD 10$:  MOVL  FIRST_OCCURING, @SUB_STRING_INDEX + 1473 ; 
56 5a C2 00081 SUBL2 STR_ABDRESS, R6 + 1474 3 
08 Bf 01 A6 4 00B4 MOVAB 1(R6), @INDEX 3 3 
5 01 00 00089 11$: MOvL #1, RO + 1475 : 
04 0008C RET : ; 
50 04 000BD 12$:  CLRL RO : 1476 : 
04 000BF RET ; : 
; Routine Size: 192 bytes, Routine Base: _STRSCODE + 0018 : 


ame eam 1ES07198 :RB:SZ WML SMeseH&ethala"SRe. foe 


: 7 1477 1 END 'End of module 
; tf 1234 0 ELUDOM 
~EXTRN LIBSSTOP 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _STRSCODE 216 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


3 Snene Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 7 0 581 00:00.8 
H COMMAND QUALIFIERS 


FLISS/CHECK SCE IELD. INITIAL .OPTIAIZE) /MOTRACE/LISeL1SS1STRF INOSB/OBJA0BI8: STARE INDSS MSRC$:STRF INDSB/UPDATE=(ENH$: STRF INDSB 


3 
seme Used: 107 pages 
Compilation Complete 


; Size: 192 code + 24 data bytes 
; Run Time 09: 08-3 

3 phen y Time: 00:27.3 

3 Lines/CPU Min: 1 $33 

3 ponenee SS en) 96 
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